﻿Public Class LoginWindow

    Private Sub CloseButton_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles CloseButton.Click
        Me.Close()
    End Sub

    Private Sub LoginWindow_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Me.MouseDown
        DragMove()
    End Sub

    Private Function LoginValidation() As Boolean
        Return True
    End Function

    Private Sub LoginButton_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles LoginButton.Click
        If LoginValidation() = False Then Exit Sub
        Dim MainWin As New MainWindow
        MainWin.Show()
        Me.Close()
    End Sub
End Class
